home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00035_Script_rotate image-opposite < prev    next >
Text File  |  1999-04-25  |  1KB  |  58 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13.  
  14. property sprt
  15.  
  16. on getPropertyDescriptionList
  17.   set description=[:]
  18.   
  19.   addProp description,#sprt,[#default:6,#format:#integer,#comment:¼
  20. "the sprite number "]
  21.   
  22.   return description
  23. end
  24.  
  25. on getBehaviorDescription
  26.   return "simulates 2D object movie. rotates the images"
  27. end
  28.  
  29. on mousedown
  30.   global oldIndex,sseq,eseq
  31.   
  32.   repeat while the mouseDown
  33.     set index = the mouseh
  34.     
  35.     if index > oldIndex and oldIndex <> 0 ¼
  36. or index > 550 then
  37.       if the frame = eseq then go to frame sseq
  38.       else go to the frame +1
  39.     else 
  40.       if index < oldIndex and oldIndex <> 0 ¼
  41. or index<50  then
  42.         
  43.         if the frame = sseq then go to frame eseq
  44.         else go to the frame -1
  45.       end if
  46.     end if
  47.     updateStage
  48.     set oldIndex = index
  49.   end repeat
  50.   pass
  51. end
  52.  
  53. on mouseup 
  54.   global oldIndex
  55.   set oldIndex = 0
  56.   pass
  57. end
  58.